home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin04 / 00009.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  513 b   |  22 lines
  1. on exitFrame
  2.   global gSeger, gPaperLeft, gPulledLength
  3.   set gPaperLeft to gPaperLeft - (gPulledLength / 100.0)
  4.   if gPaperLeft < 0 then
  5.     set gPaperLeft to 0
  6.   end if
  7.   set the text of field "papper_kvar" to "Remaining length: " & gPaperLeft & " m."
  8.   if gPaperLeft <= 0 then
  9.     startTimer()
  10.     repeat while the timer < 45
  11.     end repeat
  12.   else
  13.     draFramNytt()
  14.   end if
  15.   if gPaperLeft <= 0 then
  16.     set gSeger to 1
  17.   end if
  18.   cursor(-1)
  19.   set the text of field "hurry" to " "
  20.   play frame "sendGame"
  21. end
  22.